Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A415A.CMD < prev next >

Wrap

Text File | 1987-01-06 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 415 │" locate 0,8 message s8 locate 0,17 message "│ San Francisco, CA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Programmer-Land ........ 327-6197 V- AARDWOLF EXPRESS ....... 651-4147 ║" message "║ B- 27m .................... 341-2962 W- Lambda Koala Bear ...... 658-2919 ║" message "║ C- Pyramid of Power ....... 482-0532 X- Welchnet Games ......... 664-2811 ║" message "║ D- Megacom BBS ............ 547-3070 Y- 620 TBLUG Fido ......... 672-2505 ║" message "║ E- PC Shop-Talk ........... 621-6520 Z- HOST 125 SF Bay Net .... 776-7228 ║" message "║ F- Marin-Sonoma PCUG ...... 927-1216 0- #1 RBBS ................ 861-5733 ║" message "║ G- CLM Source Codes ....... 957-9370 1- E Tree 3 ............... 864-0774 ║" message "║ H- VOR RBBS (Vern Buerg) .. 994-2944 2- CommSoft Roots II ...... 967-6730 ║" message "║ I- Echelon BBS ............ 483-1768 3- MRC BBS ................ 968-6501 ║" message "║ J- Charisma ............... 349-6576 4- The Transfer Station ... 837-4610 ║" message "║ K- Steve Elefant .......... 430-1805 5- ........................ ...-.... ║" message "║ L- DataTech ............... 223-4579 6- ........................ ...-.... ║" message "║ M- IBM PC/HP 3000 ......... 236-1823 7- ........................ ...-.... ║" message "║ N- San Francisco MODIFIDO . 282-2366 8- ........................ ...-.... ║" message "║ O- TIBBS .................. 355-3092 9- ........................ ...-.... ║" message "║ P- Truly Tasteless BBS .... 364-4339 @- ........................ ...-.... ║" message "║ Q- Com One ................ 370-0411 #- ........................ ...-.... ║" message "║ R- East Bay Express ....... 471-3776 $- ........................ ...-.... ║" message "║ S- Skycomm, Home of FIDO .. 525-6254 %- ........................ ...-.... ║" message "║ T- CBBS ................... 527-0400 &- ........................ ...-.... ║" message "║ U- SATORE FIDP ............ 647-8528 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "327-6197" assign s6 "Programmer-Land " gosub dial else endif find s0 "B" if found assign s8 "341-2962" assign s6 "27 M " gosub dial else endif find s0 "C" if found assign s8 "482-0532" assign s6 "Pyramid of Power " gosub dial else endif find s0 "D" if found assign s8 "547-3070" assign s6 "Megacom BBS " gosub dial else endif find s0 "E" if found assign s8 "621-6520" assign s6 "PC-Shop Talk " gosub dial else endif find s0 "F" if found assign s8 "927-1216" assign s6 "Marin_Sonomia PC Users " gosub dial else endif find s0 "G" if found assign s8 "957-9370" assign s6 "CLM Source Codes " gosub dial else endif find s0 "H" if found assign s8 "994-2944" assign s6 "VOR RBBS (Vern Buerg) " gosub dial else endif find s0 "I" if found assign s8 "483-1768" assign s6 "Echelon BBS " gosub dial else endif find s0 "J" if found assign s8 "349-6576" assign s6 "Charisma " gosub dial else endif find s0 "K" if found assign s8 "430-1805" assign s6 "Steve Elefant " gosub dial else endif find s0 "L" if found assign s8 "223-4579" assign s6 "DataTech " gosub dial else endif find s0 "M" if found assign s8 "236-1823" assign s6 "IBM PC/HP 3000 " gosub dial else endif find s0 "N" if found assign s8 "282-2366" assign s6 "San Francisco MODIFIDO " gosub dial else endif find s0 "O" if found assign s8 "355-3092" assign s6 "TIBBS " gosub dial else endif find s0 "P" if found assign s8 "364-4339" assign s6 "Truly Tasteless BBS " gosub dial else endif find s0 "Q" if found assign s8 "370-0411" assign s6 "Com One " gosub dial else endif find s0 "R" if found assign s8 "471-3776" assign s6 "East Bay Express " gosub dial else endif find s0 "S" if found assign s8 "525-6254" assign s6 "Skycomm, Home of Fido " gosub dial else endif find s0 "T" if found assign s8 "527-0400" assign s6 "CBBS " gosub dial else endif find s0 "U" if found assign s8 "647-8528" assign s6 "SATORE Fido " gosub dial else endif find s0 "V" if found assign s8 "651-4147" assign s6 "AARDWOLF Express " gosub dial else endif find s0 "W" if found assign s8 "658-2919" assign s6 "Lambda Koala Bear " gosub dial else endif find s0 "X" if found assign s8 "664-2811" assign s6 "Welchnet Games " gosub dial else endif find s0 "Y" if found assign s8 "672-2505" assign s6 "620 TBLUG Fido " gosub dial else endif find s0 "Z" if found assign s8 "776-7228" assign s6 "Host 125 SF Bay Net " gosub dial else endif find s0 "0" if found assign s8 "861-5733" assign s6 "#1 RBBS " gosub dial else endif find s0 "1" if found assign s8 "864-0774" assign s6 "E Tree 3 " gosub dial else endif find s0 "2" if found assign s8 "967-6730" assign s6 "Comm Soft Roots II " gosub dial else endif find s0 "3" if found assign s8 "968-6501" assign s6 "MRC BBS " gosub dial else endif find s0 "4" if found assign s8 "837-4610" assign s6 "The Transfer Station " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "5" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit